home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Hyper / A-An / ANIMATOR.cpt / PROGRAM / background_2689.txt < prev    next >
Text File  |  1988-01-15  |  7KB  |  356 lines
  1. -- background: 2689 from stack: in
  2. -- bmap block id: 3361
  3. -- flags: 0000
  4. -- background id: 0
  5. -- name: 
  6.  
  7.  
  8. -- part 2 (button)
  9. -- low flags: 00
  10. -- high flags: 2000
  11. -- rect: left=76 top=0 right=19 bottom=95
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 1015 / 1015
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: NEW FRAME
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   get lockscreen
  23.   set lockScreen to true
  24.   show tool window at 0,10
  25.   domenu copy card
  26.   domenu "paste card"
  27.   go to last card
  28.   get field "Frame Number"
  29.   set lockScreen to false
  30.   put it + 1 into field "Frame Number"
  31.   choose browse tool
  32. end mouseUp
  33.  
  34.  
  35.  
  36. -- part 7 (button)
  37. -- low flags: 00
  38. -- high flags: 2000
  39. -- rect: left=0 top=0 right=13 bottom=30
  40. -- title width / last selected line: 0
  41. -- icon id / first selected line: 0 / 0
  42. -- text alignment: 1
  43. -- font id: 0
  44. -- text size: 12
  45. -- style flags: 0
  46. -- line height: 16
  47. -- part name: New Button
  48. ----- HyperTalk script -----
  49. on mouseUp
  50.   doMenu "Quit HyperCard"
  51. end mouseUp
  52.  
  53.  
  54.  
  55. -- part 8 (field)
  56. -- low flags: 00
  57. -- high flags: 0004
  58. -- rect: left=486 top=2 right=22 bottom=510
  59. -- title width / last selected line: 0
  60. -- icon id / first selected line: 0 / 0
  61. -- text alignment: 0
  62. -- font id: 112
  63. -- text size: 12
  64. -- style flags: 0
  65. -- line height: 16
  66. -- part name: frame number
  67.  
  68.  
  69. -- part 9 (button)
  70. -- low flags: 00
  71. -- high flags: 2000
  72. -- rect: left=167 top=0 right=20 bottom=189
  73. -- title width / last selected line: 0
  74. -- icon id / first selected line: 15420 / 15420
  75. -- text alignment: 1
  76. -- font id: 0
  77. -- text size: 12
  78. -- style flags: 0
  79. -- line height: 16
  80. -- part name: back
  81. ----- HyperTalk script -----
  82. on mouseUp
  83.   domenu "PREV"
  84. end mouseUp
  85.  
  86.  
  87.  
  88. -- part 10 (button)
  89. -- low flags: 00
  90. -- high flags: 2000
  91. -- rect: left=274 top=0 right=19 bottom=298
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 16560 / 16560
  94. -- text alignment: 1
  95. -- font id: 0
  96. -- text size: 12
  97. -- style flags: 0
  98. -- line height: 16
  99. -- part name: New Button
  100. ----- HyperTalk script -----
  101. on mouseUp
  102.   domenu "next"
  103. end mouseUp
  104.  
  105.  
  106.  
  107. -- part 13 (field)
  108. -- low flags: 80
  109. -- high flags: 2000
  110. -- rect: left=101 top=92 right=247 bottom=394
  111. -- title width / last selected line: 0
  112. -- icon id / first selected line: 0 / 0
  113. -- text alignment: 1
  114. -- font id: 3
  115. -- text size: 18
  116. -- style flags: 6400
  117. -- line height: 24
  118. -- part name: warn
  119.  
  120.  
  121. -- part 14 (button)
  122. -- low flags: 00
  123. -- high flags: 0000
  124. -- rect: left=0 top=209 right=342 bottom=263
  125. -- title width / last selected line: 0
  126. -- icon id / first selected line: 0 / 0
  127. -- text alignment: 1
  128. -- font id: 0
  129. -- text size: 12
  130. -- style flags: 0
  131. -- line height: 16
  132. -- part name: show
  133. ----- HyperTalk script -----
  134. on mousewithin
  135.   hide background field 2
  136. end mousewithin
  137.  
  138.  
  139.  
  140.  
  141. -- part 15 (button)
  142. -- low flags: 00
  143. -- high flags: 0000
  144. -- rect: left=26 top=321 right=342 bottom=128
  145. -- title width / last selected line: 0
  146. -- icon id / first selected line: 0 / 0
  147. -- text alignment: 1
  148. -- font id: 0
  149. -- text size: 12
  150. -- style flags: 0
  151. -- line height: 16
  152. -- part name: hide
  153. ----- HyperTalk script -----
  154. on mousewithin
  155.   show background field 2
  156. end mousewithin
  157.  
  158.  
  159.  
  160. -- part 16 (button)
  161. -- low flags: 00
  162. -- high flags: A004
  163. -- rect: left=144 top=320 right=340 bottom=191
  164. -- title width / last selected line: 0
  165. -- icon id / first selected line: 0 / 0
  166. -- text alignment: 1
  167. -- font id: 0
  168. -- text size: 12
  169. -- style flags: 0
  170. -- line height: 16
  171. -- part name: PLAY
  172. ----- HyperTalk script -----
  173. on mouseUp
  174.   HIDE TOOL WINDOW
  175.   repeat UNTIL THE MOUSECLICK
  176.     show all cards
  177.   end repeat
  178.   GO TO FIRST CARD
  179. end mouseUp
  180.  
  181.  
  182.  
  183. -- part 17 (button)
  184. -- low flags: 00
  185. -- high flags: 2000
  186. -- rect: left=30 top=327 right=339 bottom=45
  187. -- title width / last selected line: 0
  188. -- icon id / first selected line: 1018 / 1018
  189. -- text alignment: 1
  190. -- font id: 0
  191. -- text size: 12
  192. -- style flags: 0
  193. -- line height: 16
  194. -- part name: REMOVE ALL
  195. ----- HyperTalk script -----
  196. on mouseUp
  197.   play "Inquisition" tempo 70 cq
  198.   answer "Do you really want to DELETE ALL BUTTONS?" with "Yes" or "Cancel"
  199.   if it is "Cancel" then exit mouseUp
  200.   go to card id 3108
  201.   wait for 1 seconds
  202.   get lockscreen
  203.   set lockscreen to true
  204.   doMenu "BACKGROUND"
  205.   choose select tool
  206.   domenu "select all"
  207.   domenu "clear picture"
  208.   CHOOSE FIELD TOOL
  209.   CLICK AT 493,11
  210.   DOMENU "CLEAR FIELD"
  211.   CHOOSE BUTTON TOOL
  212.   CLICK AT 276,8
  213.   DOMENU "CLEAR BUTTON"
  214.   CHOOSE BUTTON TOOL
  215.   CLICK AT 178,8
  216.   DOMENU "CLEAR BUTTON"
  217.   CHOOSE BUTTON TOOL
  218.   CLICK AT 85,7
  219.   DOMENU "CLEAR BUTTON"
  220.   CHOOSE BUTTON TOOL
  221.   CLICK AT 11,4
  222.   DOMENU "CLEAR BUTTON"
  223.   CHOOSE BUTTON TOOL
  224.   CLICK AT 252,324
  225.   DOMENU "CLEAR BUTTON"
  226.   CHOOSE BUTTON TOOL
  227.   CLICK AT 345,332
  228.   DOMENU "CLEAR BUTTON"
  229.   CHOOSE BUTTON TOOL
  230.   CLICK AT 444,331
  231.   DOMENU "CLEAR BUTTON"
  232.   CHOOSE BUTTON TOOL
  233.   CLICK AT 9,334
  234.   DOMENU "CLEAR BUTTON"
  235.   CHOOSE BUTTON TOOL
  236.   CLICK AT 42,333
  237.   DOMENU "CLEAR BUTTON"
  238.   CHOOSE BUTTON TOOL
  239.   CLICK AT 73,329
  240.   DOMENU "CLEAR BUTTON"
  241.   CHOOSE BUTTON TOOL
  242.   CLICK AT 110,267
  243.   DOMENU "CLEAR BUTTON"
  244.   CHOOSE BUTTON TOOL
  245.   CLICK AT 8,312
  246.   DOMENU "CLEAR BUTTON"
  247.   DOMENU "BACKGROUND"
  248.   choose field tool
  249.   click at 227,143
  250.   domenu "clear field"
  251.   set lockscreen to false
  252.   CHOOSE BROWSE TOOL
  253. end mouseUp
  254.  
  255.  
  256.  
  257.  
  258. -- part 18 (button)
  259. -- low flags: 00
  260. -- high flags: 0000
  261. -- rect: left=0 top=326 right=342 bottom=19
  262. -- title width / last selected line: 0
  263. -- icon id / first selected line: 21847 / 21847
  264. -- text alignment: 1
  265. -- font id: 0
  266. -- text size: 12
  267. -- style flags: 0
  268. -- line height: 16
  269. -- part name: Home
  270. ----- HyperTalk script -----
  271. on mouseUp
  272.   visual effect iris close
  273.   go home
  274. end mouseUp
  275.  
  276.  
  277.  
  278.  
  279. -- part 19 (button)
  280. -- low flags: 00
  281. -- high flags: 0000
  282. -- rect: left=0 top=305 right=323 bottom=20
  283. -- title width / last selected line: 0
  284. -- icon id / first selected line: 6720 / 6720
  285. -- text alignment: 1
  286. -- font id: 0
  287. -- text size: 12
  288. -- style flags: 0
  289. -- line height: 16
  290. -- part name: New Button
  291. ----- HyperTalk script -----
  292. on mouseUp
  293.   go to stack "THE ANIMATOR"
  294. end mouseUp
  295.  
  296.  
  297.  
  298.  
  299. -- part 20 (button)
  300. -- low flags: 00
  301. -- high flags: 2000
  302. -- rect: left=237 top=307 right=342 bottom=270
  303. -- title width / last selected line: 0
  304. -- icon id / first selected line: 25001 / 25001
  305. -- text alignment: 1
  306. -- font id: 0
  307. -- text size: 12
  308. -- style flags: 0
  309. -- line height: 16
  310. -- part name: PAINT TOOLS
  311. ----- HyperTalk script -----
  312. on mouseDOWN
  313.   SHOW TOOL WINDOW AT 0,10
  314. end mouseDOWN
  315.  
  316.  
  317.  
  318.  
  319. -- part 21 (button)
  320. -- low flags: 00
  321. -- high flags: 2000
  322. -- rect: left=335 top=324 right=342 bottom=355
  323. -- title width / last selected line: 0
  324. -- icon id / first selected line: 1015 / 1015
  325. -- text alignment: 1
  326. -- font id: 0
  327. -- text size: 12
  328. -- style flags: 0
  329. -- line height: 16
  330. -- part name: CLEAR
  331. ----- HyperTalk script -----
  332. on mouseUp
  333.   DOMENU DELETE CARD
  334.   domenu "prev"
  335. end mouseUp
  336.  
  337.  
  338.  
  339. -- part 22 (button)
  340. -- low flags: 00
  341. -- high flags: 2000
  342. -- rect: left=433 top=323 right=342 bottom=455
  343. -- title width / last selected line: 0
  344. -- icon id / first selected line: 1015 / 1015
  345. -- text alignment: 1
  346. -- font id: 0
  347. -- text size: 12
  348. -- style flags: 0
  349. -- line height: 16
  350. -- part name: SCRAPBOOK
  351. ----- HyperTalk script -----
  352. on mouseUp
  353.   DOMENU "SCRAPBOOK"
  354. end mouseUp
  355.  
  356.